home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / hypercar / fun / flshiq11.cpt / Flash IQ_1v1.1 / background_3785.xml < prev    next >
Encoding:
Extensible Markup Language  |  1992-02-01  |  46.8 KB  |  1,151 lines

  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>3785</id>
  5.     <filler1>0</filler1>
  6.     <bitmap>BMAP_4842.pbm</bitmap>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <link rel="stylesheet" type="text/css" href="stylesheet_6050.css" />
  11.     <part>
  12.         <id>74</id>
  13.         <type>button</type>
  14.         <visible> <true /> </visible>
  15.         <reserved5> 0 </reserved5>
  16.         <reserved4> 0 </reserved4>
  17.         <reserved3> 0 </reserved3>
  18.         <reserved2> 0 </reserved2>
  19.         <reserved1> 0 </reserved1>
  20.         <enabled> <true /> </enabled>
  21.         <rect>
  22.             <left>114</left>
  23.             <top>67</top>
  24.             <right>491</right>
  25.             <bottom>311</bottom>
  26.         </rect>
  27.         <style>opaque</style>
  28.         <showName> <false /> </showName>
  29.         <highlight> <false /> </highlight>
  30.         <autoHighlight> <false /> </autoHighlight>
  31.         <sharedHighlight> <true /> </sharedHighlight>
  32.         <family>0</family>
  33.         <titleWidth>0</titleWidth>
  34.         <icon>0</icon>
  35.         <textAlign>center</textAlign>
  36.         <font>Geneva</font>
  37.         <textSize>12</textSize>
  38.         <textStyle>plain</textStyle>
  39.         <name>Grid Cover</name>
  40.         <script></script>
  41.     </part>
  42.     <part>
  43.         <id>17</id>
  44.         <type>button</type>
  45.         <visible> <true /> </visible>
  46.         <reserved5> 0 </reserved5>
  47.         <reserved4> 0 </reserved4>
  48.         <reserved3> 0 </reserved3>
  49.         <reserved2> 0 </reserved2>
  50.         <reserved1> 0 </reserved1>
  51.         <enabled> <true /> </enabled>
  52.         <rect>
  53.             <left>26</left>
  54.             <top>121</top>
  55.             <right>65</right>
  56.             <bottom>171</bottom>
  57.         </rect>
  58.         <style>shadow</style>
  59.         <showName> <true /> </showName>
  60.         <highlight> <false /> </highlight>
  61.         <autoHighlight> <false /> </autoHighlight>
  62.         <sharedHighlight> <true /> </sharedHighlight>
  63.         <family>0</family>
  64.         <titleWidth>0</titleWidth>
  65.         <icon>4315</icon>
  66.         <textAlign>center</textAlign>
  67.         <font>Geneva</font>
  68.         <textSize>12</textSize>
  69.         <textStyle>plain</textStyle>
  70.         <name>Effects</name>
  71.         <script>on mouseUp
  72. global Speed, Color
  73. repeat with i = 4312 to 4315
  74. set icon of me to i
  75. end repeat
  76. repeat with i = 24 to 25
  77. set the visible of card field id i┬¼
  78. to not the visible of card field id i
  79. end repeat
  80. set scroll of card field "Visual Effects" to 0
  81. repeat with i = 42 to 45
  82. set the visible of card btn id i┬¼
  83. to not the visible of card btn id i
  84. end repeat
  85. if the visible of card field "Visual Effects" is true then
  86. set hilite of me to true
  87. repeat with i = 22 to 25
  88. set style of bkgnd btn id i to rectangle
  89. end repeat
  90. else
  91. set hilite of me to false
  92. repeat with i = 22 to 25
  93. set style of bkgnd btn id i to transparent
  94. end repeat
  95. repeat with i = 18 to 19
  96. if hilite of bkgnd btn id i is true then
  97. send mouseUp to bkgnd btn id i
  98. end if
  99. end repeat
  100. put empty into card field "Test"
  101. end if
  102. put empty into Color
  103. put empty into Speed
  104. pass mouseUp
  105. end mouseUp
  106.  
  107.  
  108.  
  109. </script>
  110.     </part>
  111.     <part>
  112.         <id>18</id>
  113.         <type>button</type>
  114.         <visible> <true /> </visible>
  115.         <reserved5> 0 </reserved5>
  116.         <reserved4> 0 </reserved4>
  117.         <reserved3> 0 </reserved3>
  118.         <reserved2> 0 </reserved2>
  119.         <reserved1> 0 </reserved1>
  120.         <enabled> <true /> </enabled>
  121.         <rect>
  122.             <left>68</left>
  123.             <top>121</top>
  124.             <right>107</right>
  125.             <bottom>171</bottom>
  126.         </rect>
  127.         <style>shadow</style>
  128.         <showName> <true /> </showName>
  129.         <highlight> <false /> </highlight>
  130.         <autoHighlight> <false /> </autoHighlight>
  131.         <sharedHighlight> <true /> </sharedHighlight>
  132.         <family>0</family>
  133.         <titleWidth>0</titleWidth>
  134.         <icon>14283</icon>
  135.         <textAlign>center</textAlign>
  136.         <font>Geneva</font>
  137.         <textSize>12</textSize>
  138.         <textStyle>plain</textStyle>
  139.         <name>Speed</name>
  140.         <script>on mouseUp
  141. set hilite of me to not hilite of me
  142. if hilite of me is true then effects
  143. repeat with i = 26 to 29
  144. set the visible of card btn id i┬¼
  145. to not the visible of card btn id i
  146. end repeat
  147. pass mouseUp
  148. end mouseUp
  149. </script>
  150.     </part>
  151.     <part>
  152.         <id>19</id>
  153.         <type>button</type>
  154.         <visible> <true /> </visible>
  155.         <reserved5> 0 </reserved5>
  156.         <reserved4> 0 </reserved4>
  157.         <reserved3> 0 </reserved3>
  158.         <reserved2> 0 </reserved2>
  159.         <reserved1> 0 </reserved1>
  160.         <enabled> <true /> </enabled>
  161.         <rect>
  162.             <left>68</left>
  163.             <top>174</top>
  164.             <right>107</right>
  165.             <bottom>224</bottom>
  166.         </rect>
  167.         <style>shadow</style>
  168.         <showName> <true /> </showName>
  169.         <highlight> <false /> </highlight>
  170.         <autoHighlight> <false /> </autoHighlight>
  171.         <sharedHighlight> <true /> </sharedHighlight>
  172.         <family>0</family>
  173.         <titleWidth>0</titleWidth>
  174.         <icon>23177</icon>
  175.         <textAlign>center</textAlign>
  176.         <font>Geneva</font>
  177.         <textSize>12</textSize>
  178.         <textStyle>plain</textStyle>
  179.         <name>Color</name>
  180.         <script>on mouseUp
  181. set hilite of me to not hilite of me
  182. if hilite of me is true then effects
  183. repeat with i = 30 to 33
  184. set the visible of card btn id i┬¼
  185. to not the visible of card btn id i
  186. end repeat
  187. pass mouseUp
  188. end mouseUp
  189.  
  190.  
  191.  
  192. </script>
  193.     </part>
  194.     <part>
  195.         <id>20</id>
  196.         <type>button</type>
  197.         <visible> <true /> </visible>
  198.         <reserved5> 0 </reserved5>
  199.         <reserved4> 0 </reserved4>
  200.         <reserved3> 0 </reserved3>
  201.         <reserved2> 0 </reserved2>
  202.         <reserved1> 0 </reserved1>
  203.         <enabled> <true /> </enabled>
  204.         <rect>
  205.             <left>26</left>
  206.             <top>235</top>
  207.             <right>65</right>
  208.             <bottom>285</bottom>
  209.         </rect>
  210.         <style>shadow</style>
  211.         <showName> <true /> </showName>
  212.         <highlight> <false /> </highlight>
  213.         <autoHighlight> <true /> </autoHighlight>
  214.         <sharedHighlight> <true /> </sharedHighlight>
  215.         <family>0</family>
  216.         <titleWidth>0</titleWidth>
  217.         <icon>4188</icon>
  218.         <textAlign>center</textAlign>
  219.         <font>Geneva</font>
  220.         <textSize>12</textSize>
  221.         <textStyle>plain</textStyle>
  222.         <name>Info</name>
  223.         <script>on mouseUp
  224. do short name of me
  225. end mouseUp
  226. </script>
  227.     </part>
  228.     <part>
  229.         <id>21</id>
  230.         <type>button</type>
  231.         <visible> <true /> </visible>
  232.         <reserved5> 0 </reserved5>
  233.         <reserved4> 0 </reserved4>
  234.         <reserved3> 0 </reserved3>
  235.         <reserved2> 0 </reserved2>
  236.         <reserved1> 0 </reserved1>
  237.         <enabled> <true /> </enabled>
  238.         <rect>
  239.             <left>68</left>
  240.             <top>235</top>
  241.             <right>107</right>
  242.             <bottom>285</bottom>
  243.         </rect>
  244.         <style>shadow</style>
  245.         <showName> <true /> </showName>
  246.         <highlight> <false /> </highlight>
  247.         <autoHighlight> <true /> </autoHighlight>
  248.         <sharedHighlight> <true /> </sharedHighlight>
  249.         <family>0</family>
  250.         <titleWidth>0</titleWidth>
  251.         <icon>4179</icon>
  252.         <textAlign>center</textAlign>
  253.         <font>Geneva</font>
  254.         <textSize>12</textSize>
  255.         <textStyle>plain</textStyle>
  256.         <name>Map</name>
  257.         <script>on mouseUp
  258. doMenu short name of me
  259. end mouseUp</script>
  260.     </part>
  261.     <part>
  262.         <id>22</id>
  263.         <type>button</type>
  264.         <visible> <true /> </visible>
  265.         <reserved5> 0 </reserved5>
  266.         <reserved4> 0 </reserved4>
  267.         <reserved3> 0 </reserved3>
  268.         <reserved2> 0 </reserved2>
  269.         <reserved1> 0 </reserved1>
  270.         <enabled> <true /> </enabled>
  271.         <rect>
  272.             <left>200</left>
  273.             <top>268</top>
  274.             <right>225</right>
  275.             <bottom>291</bottom>
  276.         </rect>
  277.         <style>transparent</style>
  278.         <showName> <false /> </showName>
  279.         <highlight> <false /> </highlight>
  280.         <autoHighlight> <true /> </autoHighlight>
  281.         <sharedHighlight> <true /> </sharedHighlight>
  282.         <family>0</family>
  283.         <titleWidth>0</titleWidth>
  284.         <icon>1014</icon>
  285.         <textAlign>center</textAlign>
  286.         <font>Geneva</font>
  287.         <textSize>12</textSize>
  288.         <textStyle>plain</textStyle>
  289.         <name>Go To Previous Card</name>
  290.         <script>on mouseUp
  291. scroll L
  292. go to prev card
  293. end mouseUp
  294. </script>
  295.     </part>
  296.     <part>
  297.         <id>23</id>
  298.         <type>button</type>
  299.         <visible> <true /> </visible>
  300.         <reserved5> 0 </reserved5>
  301.         <reserved4> 0 </reserved4>
  302.         <reserved3> 0 </reserved3>
  303.         <reserved2> 0 </reserved2>
  304.         <reserved1> 0 </reserved1>
  305.         <enabled> <true /> </enabled>
  306.         <rect>
  307.             <left>225</left>
  308.             <top>268</top>
  309.             <right>252</right>
  310.             <bottom>291</bottom>
  311.         </rect>
  312.         <style>transparent</style>
  313.         <showName> <false /> </showName>
  314.         <highlight> <false /> </highlight>
  315.         <autoHighlight> <true /> </autoHighlight>
  316.         <sharedHighlight> <true /> </sharedHighlight>
  317.         <family>0</family>
  318.         <titleWidth>0</titleWidth>
  319.         <icon>21700</icon>
  320.         <textAlign>center</textAlign>
  321.         <font>Geneva</font>
  322.         <textSize>12</textSize>
  323.         <textStyle>plain</textStyle>
  324.         <name>Go To Home Card</name>
  325.         <script>on mouseUp
  326. scroll D
  327. go home
  328. end mouseUp
  329. </script>
  330.     </part>
  331.     <part>
  332.         <id>24</id>
  333.         <type>button</type>
  334.         <visible> <true /> </visible>
  335.         <reserved5> 0 </reserved5>
  336.         <reserved4> 0 </reserved4>
  337.         <reserved3> 0 </reserved3>
  338.         <reserved2> 0 </reserved2>
  339.         <reserved1> 0 </reserved1>
  340.         <enabled> <true /> </enabled>
  341.         <rect>
  342.             <left>252</left>
  343.             <top>268</top>
  344.             <right>276</right>
  345.             <bottom>291</bottom>
  346.         </rect>
  347.         <style>transparent</style>
  348.         <showName> <false /> </showName>
  349.         <highlight> <false /> </highlight>
  350.         <autoHighlight> <true /> </autoHighlight>
  351.         <sharedHighlight> <true /> </sharedHighlight>
  352.         <family>0</family>
  353.         <titleWidth>0</titleWidth>
  354.         <icon>1013</icon>
  355.         <textAlign>center</textAlign>
  356.         <font>Geneva</font>
  357.         <textSize>12</textSize>
  358.         <textStyle>plain</textStyle>
  359.         <name>Go To Next Card</name>
  360.         <script>on mouseUp
  361. scroll R
  362. go to next card
  363. end mouseUp
  364. </script>
  365.     </part>
  366.     <part>
  367.         <id>25</id>
  368.         <type>button</type>
  369.         <visible> <true /> </visible>
  370.         <reserved5> 0 </reserved5>
  371.         <reserved4> 0 </reserved4>
  372.         <reserved3> 0 </reserved3>
  373.         <reserved2> 0 </reserved2>
  374.         <reserved1> 0 </reserved1>
  375.         <enabled> <true /> </enabled>
  376.         <rect>
  377.             <left>462</left>
  378.             <top>268</top>
  379.             <right>485</right>
  380.             <bottom>291</bottom>
  381.         </rect>
  382.         <style>transparent</style>
  383.         <showName> <false /> </showName>
  384.         <highlight> <false /> </highlight>
  385.         <autoHighlight> <true /> </autoHighlight>
  386.         <sharedHighlight> <true /> </sharedHighlight>
  387.         <family>0</family>
  388.         <titleWidth>0</titleWidth>
  389.         <icon>1012</icon>
  390.         <textAlign>center</textAlign>
  391.         <font>Geneva</font>
  392.         <textSize>12</textSize>
  393.         <textStyle>plain</textStyle>
  394.         <name>Go Back </name>
  395.         <script>on mouseUp
  396. scroll U
  397. pop card
  398. end mouseUp
  399. </script>
  400.     </part>
  401.     <part>
  402.         <id>36</id>
  403.         <type>button</type>
  404.         <visible> <false /> </visible>
  405.         <reserved5> 0 </reserved5>
  406.         <reserved4> 0 </reserved4>
  407.         <reserved3> 0 </reserved3>
  408.         <reserved2> 0 </reserved2>
  409.         <reserved1> 0 </reserved1>
  410.         <enabled> <true /> </enabled>
  411.         <rect>
  412.             <left>83</left>
  413.             <top>161</top>
  414.             <right>98</right>
  415.             <bottom>174</bottom>
  416.         </rect>
  417.         <style>transparent</style>
  418.         <showName> <false /> </showName>
  419.         <highlight> <false /> </highlight>
  420.         <autoHighlight> <false /> </autoHighlight>
  421.         <sharedHighlight> <true /> </sharedHighlight>
  422.         <family>0</family>
  423.         <titleWidth>0</titleWidth>
  424.         <icon>0</icon>
  425.         <textAlign>center</textAlign>
  426.         <font>Geneva</font>
  427.         <textSize>12</textSize>
  428.         <textStyle>plain</textStyle>
  429.         <name>Date</name>
  430.         <script></script>
  431.     </part>
  432.     <part>
  433.         <id>38</id>
  434.         <type>field</type>
  435.         <visible> <true /> </visible>
  436.         <dontWrap> <false /> </dontWrap>
  437.         <dontSearch> <false /> </dontSearch>
  438.         <sharedText> <false /> </sharedText>
  439.         <fixedLineHeight> <true /> </fixedLineHeight>
  440.         <autoTab> <false /> </autoTab>
  441.         <lockText> <true /> </lockText>
  442.         <rect>
  443.             <left>13</left>
  444.             <top>32</top>
  445.             <right>495</right>
  446.             <bottom>66</bottom>
  447.         </rect>
  448.         <style>transparent</style>
  449.         <autoSelect> <false /> </autoSelect>
  450.         <showLines> <false /> </showLines>
  451.         <wideMargins> <false /> </wideMargins>
  452.         <multipleLines> <false /> </multipleLines>
  453.         <reservedFamily> 0 </reservedFamily>
  454.         <titleWidth>0</titleWidth>
  455.         <icon>0</icon>
  456.         <textAlign>center</textAlign>
  457.         <font>Geneva</font>
  458.         <textSize>26</textSize>
  459.         <textStyle>condense</textStyle>
  460.         <textStyle>outline</textStyle>
  461.         <textStyle>bold</textStyle>
  462.         <textHeight>34</textHeight>
  463.         <name>Title</name>
  464.         <script></script>
  465.     </part>
  466.     <part>
  467.         <id>43</id>
  468.         <type>button</type>
  469.         <visible> <true /> </visible>
  470.         <reserved5> 0 </reserved5>
  471.         <reserved4> 0 </reserved4>
  472.         <reserved3> 0 </reserved3>
  473.         <reserved2> 0 </reserved2>
  474.         <reserved1> 0 </reserved1>
  475.         <enabled> <true /> </enabled>
  476.         <rect>
  477.             <left>210</left>
  478.             <top>311</top>
  479.             <right>264</right>
  480.             <bottom>327</bottom>
  481.         </rect>
  482.         <style>shadow</style>
  483.         <showName> <true /> </showName>
  484.         <highlight> <true /> </highlight>
  485.         <autoHighlight> <true /> </autoHighlight>
  486.         <sharedHighlight> <true /> </sharedHighlight>
  487.         <family>0</family>
  488.         <titleWidth>0</titleWidth>
  489.         <icon>0</icon>
  490.         <textAlign>center</textAlign>
  491.         <font>Geneva</font>
  492.         <textSize>12</textSize>
  493.         <textStyle>plain</textStyle>
  494.         <name>Effects</name>
  495.         <script>on mouseUp
  496. set hilite of me to true
  497. beep
  498. answer "You're already in" && quote & short name of me & quote & "."
  499. end mouseUp
  500. </script>
  501.     </part>
  502.     <part>
  503.         <id>51</id>
  504.         <type>button</type>
  505.         <visible> <false /> </visible>
  506.         <reserved5> 0 </reserved5>
  507.         <reserved4> 0 </reserved4>
  508.         <reserved3> 0 </reserved3>
  509.         <reserved2> 0 </reserved2>
  510.         <reserved1> 0 </reserved1>
  511.         <enabled> <true /> </enabled>
  512.         <rect>
  513.             <left>224</left>
  514.             <top>63</top>
  515.             <right>370</right>
  516.             <bottom>75</bottom>
  517.         </rect>
  518.         <style>rectangle</style>
  519.         <showName> <false /> </showName>
  520.         <highlight> <true /> </highlight>
  521.         <autoHighlight> <false /> </autoHighlight>
  522.         <sharedHighlight> <true /> </sharedHighlight>
  523.         <family>0</family>
  524.         <titleWidth>0</titleWidth>
  525.         <icon>0</icon>
  526.         <textAlign>center</textAlign>
  527.         <font>Geneva</font>
  528.         <textSize>12</textSize>
  529.         <textStyle>plain</textStyle>
  530.         <name>Mouse Loc</name>
  531.         <script></script>
  532.     </part>
  533.     <part>
  534.         <id>52</id>
  535.         <type>field</type>
  536.         <visible> <false /> </visible>
  537.         <dontWrap> <false /> </dontWrap>
  538.         <dontSearch> <false /> </dontSearch>
  539.         <sharedText> <false /> </sharedText>
  540.         <fixedLineHeight> <true /> </fixedLineHeight>
  541.         <autoTab> <false /> </autoTab>
  542.         <lockText> <false /> </lockText>
  543.         <rect>
  544.             <left>223</left>
  545.             <top>62</top>
  546.             <right>315</right>
  547.             <bottom>74</bottom>
  548.         </rect>
  549.         <style>transparent</style>
  550.         <autoSelect> <false /> </autoSelect>
  551.         <showLines> <false /> </showLines>
  552.         <wideMargins> <false /> </wideMargins>
  553.         <multipleLines> <false /> </multipleLines>
  554.         <reservedFamily> 0 </reservedFamily>
  555.         <titleWidth>0</titleWidth>
  556.         <icon>0</icon>
  557.         <textAlign>left</textAlign>
  558.         <font>Geneva</font>
  559.         <textSize>9</textSize>
  560.         <textStyle>condense</textStyle>
  561.         <textStyle>outline</textStyle>
  562.         <textStyle>bold</textStyle>
  563.         <textHeight>12</textHeight>
  564.         <name>Mouse Loc1</name>
  565.         <script></script>
  566.     </part>
  567.     <part>
  568.         <id>53</id>
  569.         <type>field</type>
  570.         <visible> <false /> </visible>
  571.         <dontWrap> <false /> </dontWrap>
  572.         <dontSearch> <false /> </dontSearch>
  573.         <sharedText> <false /> </sharedText>
  574.         <fixedLineHeight> <true /> </fixedLineHeight>
  575.         <autoTab> <false /> </autoTab>
  576.         <lockText> <true /> </lockText>
  577.         <rect>
  578.             <left>312</left>
  579.             <top>62</top>
  580.             <right>369</right>
  581.             <bottom>76</bottom>
  582.         </rect>
  583.         <style>transparent</style>
  584.         <autoSelect> <false /> </autoSelect>
  585.         <showLines> <false /> </showLines>
  586.         <wideMargins> <false /> </wideMargins>
  587.         <multipleLines> <false /> </multipleLines>
  588.         <reservedFamily> 0 </reservedFamily>
  589.         <titleWidth>0</titleWidth>
  590.         <icon>0</icon>
  591.         <textAlign>center</textAlign>
  592.         <font>Geneva</font>
  593.         <textSize>9</textSize>
  594.         <textStyle>condense</textStyle>
  595.         <textStyle>outline</textStyle>
  596.         <textStyle>bold</textStyle>
  597.         <textHeight>12</textHeight>
  598.         <name>Mouse Loc2</name>
  599.         <script>on idle
  600. if the visible of field "Mouse Loc2" is true then
  601. put the mouseLoc into field "Mouse Loc2"
  602. end if
  603. send idle to stack
  604. exit idle
  605. pass idle
  606. end idle</script>
  607.     </part>
  608.     <part>
  609.         <id>72</id>
  610.         <type>button</type>
  611.         <visible> <false /> </visible>
  612.         <reserved5> 0 </reserved5>
  613.         <reserved4> 0 </reserved4>
  614.         <reserved3> 0 </reserved3>
  615.         <reserved2> 0 </reserved2>
  616.         <reserved1> 0 </reserved1>
  617.         <enabled> <true /> </enabled>
  618.         <rect>
  619.             <left>15</left>
  620.             <top>300</top>
  621.             <right>251</right>
  622.             <bottom>312</bottom>
  623.         </rect>
  624.         <style>rectangle</style>
  625.         <showName> <false /> </showName>
  626.         <highlight> <true /> </highlight>
  627.         <autoHighlight> <false /> </autoHighlight>
  628.         <sharedHighlight> <true /> </sharedHighlight>
  629.         <family>0</family>
  630.         <titleWidth>0</titleWidth>
  631.         <icon>0</icon>
  632.         <textAlign>left</textAlign>
  633.         <font>Geneva</font>
  634.         <textSize>9</textSize>
  635.         <textStyle>bold</textStyle>
  636.         <name>Prev Card: card id 5476</name>
  637.         <script>on mouseUp
  638. scrollL
  639. go to card char 12 to 99 of short name of me
  640. end mouseUp
  641. </script>
  642.     </part>
  643.     <part>
  644.         <id>73</id>
  645.         <type>button</type>
  646.         <visible> <false /> </visible>
  647.         <reserved5> 0 </reserved5>
  648.         <reserved4> 0 </reserved4>
  649.         <reserved3> 0 </reserved3>
  650.         <reserved2> 0 </reserved2>
  651.         <reserved1> 0 </reserved1>
  652.         <enabled> <true /> </enabled>
  653.         <rect>
  654.             <left>253</left>
  655.             <top>300</top>
  656.             <right>492</right>
  657.             <bottom>312</bottom>
  658.         </rect>
  659.         <style>rectangle</style>
  660.         <showName> <false /> </showName>
  661.         <highlight> <true /> </highlight>
  662.         <autoHighlight> <false /> </autoHighlight>
  663.         <sharedHighlight> <true /> </sharedHighlight>
  664.         <family>0</family>
  665.         <titleWidth>0</titleWidth>
  666.         <icon>0</icon>
  667.         <textAlign>left</textAlign>
  668.         <font>Geneva</font>
  669.         <textSize>9</textSize>
  670.         <textStyle>bold</textStyle>
  671.         <name>Next Card: Copy of Home</name>
  672.         <script>on mouseUp
  673. scrollR
  674. go to card char 12 to 99 of short name of me
  675. end mouseUp
  676. </script>
  677.     </part>
  678.     <part>
  679.         <id>78</id>
  680.         <type>field</type>
  681.         <visible> <false /> </visible>
  682.         <dontWrap> <false /> </dontWrap>
  683.         <dontSearch> <false /> </dontSearch>
  684.         <sharedText> <false /> </sharedText>
  685.         <fixedLineHeight> <true /> </fixedLineHeight>
  686.         <autoTab> <false /> </autoTab>
  687.         <lockText> <true /> </lockText>
  688.         <rect>
  689.             <left>16</left>
  690.             <top>300</top>
  691.             <right>252</right>
  692.             <bottom>312</bottom>
  693.         </rect>
  694.         <style>transparent</style>
  695.         <autoSelect> <false /> </autoSelect>
  696.         <showLines> <false /> </showLines>
  697.         <wideMargins> <false /> </wideMargins>
  698.         <multipleLines> <false /> </multipleLines>
  699.         <reservedFamily> 0 </reservedFamily>
  700.         <titleWidth>0</titleWidth>
  701.         <icon>0</icon>
  702.         <textAlign>left</textAlign>
  703.         <font>Geneva</font>
  704.         <textSize>9</textSize>
  705.         <textStyle>condense</textStyle>
  706.         <textStyle>outline</textStyle>
  707.         <textStyle>bold</textStyle>
  708.         <textHeight>12</textHeight>
  709.         <name></name>
  710.         <script>on mouseUp
  711. scrollL
  712. go to card char 12 to 99 of short name of me
  713. end mouseUp
  714. </script>
  715.     </part>
  716.     <part>
  717.         <id>79</id>
  718.         <type>field</type>
  719.         <visible> <false /> </visible>
  720.         <dontWrap> <false /> </dontWrap>
  721.         <dontSearch> <false /> </dontSearch>
  722.         <sharedText> <false /> </sharedText>
  723.         <fixedLineHeight> <true /> </fixedLineHeight>
  724.         <autoTab> <false /> </autoTab>
  725.         <lockText> <true /> </lockText>
  726.         <rect>
  727.             <left>253</left>
  728.             <top>300</top>
  729.             <right>492</right>
  730.             <bottom>313</bottom>
  731.         </rect>
  732.         <style>transparent</style>
  733.         <autoSelect> <false /> </autoSelect>
  734.         <showLines> <false /> </showLines>
  735.         <wideMargins> <false /> </wideMargins>
  736.         <multipleLines> <false /> </multipleLines>
  737.         <reservedFamily> 0 </reservedFamily>
  738.         <titleWidth>0</titleWidth>
  739.         <icon>0</icon>
  740.         <textAlign>left</textAlign>
  741.         <font>Geneva</font>
  742.         <textSize>9</textSize>
  743.         <textStyle>condense</textStyle>
  744.         <textStyle>outline</textStyle>
  745.         <textStyle>bold</textStyle>
  746.         <textHeight>12</textHeight>
  747.         <name></name>
  748.         <script>on mouseUp
  749. scrollR
  750. go to card char 12 to 99 of short name of me
  751. end mouseUp
  752. </script>
  753.     </part>
  754.     <part>
  755.         <id>80</id>
  756.         <type>button</type>
  757.         <visible> <false /> </visible>
  758.         <reserved5> 0 </reserved5>
  759.         <reserved4> 0 </reserved4>
  760.         <reserved3> 0 </reserved3>
  761.         <reserved2> 0 </reserved2>
  762.         <reserved1> 0 </reserved1>
  763.         <enabled> <true /> </enabled>
  764.         <rect>
  765.             <left>374</left>
  766.             <top>63</top>
  767.             <right>493</right>
  768.             <bottom>75</bottom>
  769.         </rect>
  770.         <style>rectangle</style>
  771.         <showName> <false /> </showName>
  772.         <highlight> <true /> </highlight>
  773.         <autoHighlight> <true /> </autoHighlight>
  774.         <sharedHighlight> <true /> </sharedHighlight>
  775.         <family>0</family>
  776.         <titleWidth>0</titleWidth>
  777.         <icon>0</icon>
  778.         <textAlign>center</textAlign>
  779.         <font>Geneva</font>
  780.         <textSize>12</textSize>
  781.         <textStyle>plain</textStyle>
  782.         <name>FreeSpaceMon</name>
  783.         <script></script>
  784.     </part>
  785.     <part>
  786.         <id>81</id>
  787.         <type>field</type>
  788.         <visible> <false /> </visible>
  789.         <dontWrap> <false /> </dontWrap>
  790.         <dontSearch> <false /> </dontSearch>
  791.         <sharedText> <false /> </sharedText>
  792.         <fixedLineHeight> <true /> </fixedLineHeight>
  793.         <autoTab> <false /> </autoTab>
  794.         <lockText> <true /> </lockText>
  795.         <rect>
  796.             <left>374</left>
  797.             <top>62</top>
  798.             <right>466</right>
  799.             <bottom>74</bottom>
  800.         </rect>
  801.         <style>transparent</style>
  802.         <autoSelect> <false /> </autoSelect>
  803.         <showLines> <false /> </showLines>
  804.         <wideMargins> <false /> </wideMargins>
  805.         <multipleLines> <false /> </multipleLines>
  806.         <reservedFamily> 0 </reservedFamily>
  807.         <titleWidth>0</titleWidth>
  808.         <icon>0</icon>
  809.         <textAlign>left</textAlign>
  810.         <font>Geneva</font>
  811.         <textSize>9</textSize>
  812.         <textStyle>condense</textStyle>
  813.         <textStyle>outline</textStyle>
  814.         <textStyle>bold</textStyle>
  815.         <textHeight>12</textHeight>
  816.         <name>FreeSpaceMon1</name>
  817.         <script>on mouseDown
  818. set the numberFormat to "0.00"
  819. get the freeSize of this stack
  820. put it / 1024 && "K" into FS
  821. put FS into field "FreeSpaceMon2"
  822. end mouseDown</script>
  823.     </part>
  824.     <part>
  825.         <id>82</id>
  826.         <type>field</type>
  827.         <visible> <false /> </visible>
  828.         <dontWrap> <false /> </dontWrap>
  829.         <dontSearch> <false /> </dontSearch>
  830.         <sharedText> <false /> </sharedText>
  831.         <fixedLineHeight> <true /> </fixedLineHeight>
  832.         <autoTab> <false /> </autoTab>
  833.         <lockText> <true /> </lockText>
  834.         <rect>
  835.             <left>436</left>
  836.             <top>62</top>
  837.             <right>493</right>
  838.             <bottom>76</bottom>
  839.         </rect>
  840.         <style>transparent</style>
  841.         <autoSelect> <false /> </autoSelect>
  842.         <showLines> <false /> </showLines>
  843.         <wideMargins> <false /> </wideMargins>
  844.         <multipleLines> <false /> </multipleLines>
  845.         <reservedFamily> 0 </reservedFamily>
  846.         <titleWidth>0</titleWidth>
  847.         <icon>0</icon>
  848.         <textAlign>center</textAlign>
  849.         <font>Geneva</font>
  850.         <textSize>9</textSize>
  851.         <textStyle>condense</textStyle>
  852.         <textStyle>outline</textStyle>
  853.         <textStyle>bold</textStyle>
  854.         <textHeight>12</textHeight>
  855.         <name>FreeSpaceMon2</name>
  856.         <script>on mouseDown
  857. set the numberFormat to "0.00"
  858. get the freeSize of this stack
  859. put it / 1024 && "K" into FS
  860. put FS into field "FreeSpaceMon2"
  861. end mouseDown</script>
  862.     </part>
  863.     <part>
  864.         <id>83</id>
  865.         <type>button</type>
  866.         <visible> <true /> </visible>
  867.         <reserved5> 0 </reserved5>
  868.         <reserved4> 0 </reserved4>
  869.         <reserved3> 0 </reserved3>
  870.         <reserved2> 0 </reserved2>
  871.         <reserved1> 0 </reserved1>
  872.         <enabled> <true /> </enabled>
  873.         <rect>
  874.             <left>12</left>
  875.             <top>26</top>
  876.             <right>494</right>
  877.             <bottom>38</bottom>
  878.         </rect>
  879.         <style>rectangle</style>
  880.         <showName> <true /> </showName>
  881.         <highlight> <true /> </highlight>
  882.         <autoHighlight> <false /> </autoHighlight>
  883.         <sharedHighlight> <true /> </sharedHighlight>
  884.         <family>0</family>
  885.         <titleWidth>0</titleWidth>
  886.         <icon>0</icon>
  887.         <textAlign>center</textAlign>
  888.         <font>Geneva</font>
  889.         <textSize>12</textSize>
  890.         <textStyle>condense</textStyle>
  891.         <name>A | B | C | D | E | F | G | H |  I | J | K | L | M | N | O | P | Q | R | S | T | U | V | W | X | Y | Z | + | -</name>
  892.         <script>on mouseDown
  893. global Fred, Nick
  894. set hilite of me to true
  895. lockcard
  896. push card
  897. go to bkgnd id 2295
  898. if Fred <> empty then
  899. if visible of field Fred is true then hide field Fred
  900. end if
  901. put the rect of the target into holder
  902. put (item 1 of the clickloc) - (item 1 of the rect of me) into A
  903. put (item 3 of the rect of me) - (item 1 of the rect of me) into B
  904. put the numToChar of (trunc(A/(B/28))+65) into Fred
  905. if Fred is empty then
  906. pop card
  907. exit mouseDown
  908. else if Fred is "[" then indexAddName
  909. else if Fred is "\" then indexDeleteName
  910. else
  911. play Fred
  912. if the commandKey is down then indexEditMode
  913. else
  914. put (item 1 of the clickloc-6) into horiz
  915. put (item 2 of holder)+12 into vert
  916. if script of field Fred is empty then
  917. answer "Oops, nothing to display." with "Sorry"
  918. pop card
  919. exit mouseDown
  920. else
  921. get PopUpMenu(script of field Fred,0, vert, horiz)
  922. if it is "0" then
  923. pop card
  924. exit mouseDown
  925. else
  926. put (line it of script of field Fred) into Sam
  927. pop card
  928. unlockcard
  929. if Sam is "Menu Maker" then
  930. answer "Sorry, This feature not yet supported"
  931. exit mouseDown
  932. else if Sam is "Menus" then
  933. answer "Sorry, This feature not yet supported"
  934. exit mouseDown
  935. else if Sam is "Scripts" then
  936. answer "Sorry, This feature not yet supported"
  937. exit mouseDown
  938. else if Sam is "Button Font Changer" then
  939. changeFont
  940. exit mouseDown
  941. else if Sam is "Change Button Font" then
  942. changeFont
  943. exit mouseDown
  944. else if Sam is "Crash" then
  945. crash
  946. exit mouseDown
  947. else if Sam is "Create An Icon" then
  948. MakeIcon
  949. exit mousedown
  950. else if Sam is "Credits" then
  951. credits
  952. exit mouseDown
  953. else if Sam is "Cursors" then
  954. cursors
  955. exit mouseDown
  956. else if Sam is "Date & Time" then
  957. timeDate
  958. exit mouseDown
  959. else if Sam is "Dedications" then
  960. dedications
  961. exit mouseDown
  962. else if Sam is "DeProtect Stack" then
  963. deprotect1
  964. exit mouseDown
  965. else if Sam is "Disk Space Available" then
  966. diskSpaceAvail
  967. exit mouseDown
  968. else if Sam is "Don't Click Here" then
  969. overLoad
  970. exit mouseDown
  971. else if Sam is "Don't Panic" then
  972. panic
  973. exit mouseDown
  974. else if Sam is "Edit This Bkgnd Script" then
  975. edit script of this bkgnd
  976. exit mouseDown
  977. else if Sam is "Edit This Card Script" then
  978. edit script of this card
  979. exit mouseDown
  980. else if Sam is "Edit This Stack Script" then
  981. edit script of this stack
  982. exit mouseDown
  983. else if Sam is "Free Space in this stack" then
  984. freeSpace
  985. exit mouseDown
  986. else if Sam is "Free Space Monitor" then
  987. freeSpaceMon
  988. exit mouseDown
  989. else if Sam is "Get Specs" then
  990. getSpecs
  991. exit mouseDown
  992. else if Sam is "Heap Space" then
  993. heapSpaceAvail
  994. exit mouseDown
  995. else if Sam is "Hidden Buttons" then
  996. ShowHiddenBtns
  997. exit mouseDown
  998. else if Sam is "Hidden Fields" then
  999. ShowHiddenFields
  1000. exit mouseDown
  1001. else if Sam is "HyperCard Version?" then
  1002. HyperCardVersion
  1003. exit mouseDown
  1004. else if Sam is "HyperEdit" then
  1005. answer "Hold down the return Key and the shift Key"
  1006. exit mouseDown
  1007. else if Sam is "HyperSoundΓäó" then
  1008. go to stack "HyperSound"
  1009. exit mouseDown
  1010. else if Sam is "Last Updated" then
  1011. updated
  1012. exit mouseDown
  1013. else if Sam is "List Next & Prev Cards" then
  1014. LNPC
  1015. exit mouseDown
  1016. else if Sam is "Make Icons" then
  1017. MakeIcon
  1018. exit mousedown
  1019. else if Sam is "Mouse Location" then
  1020. mouseLocation
  1021. exit mousedown
  1022. else if Sam is "Open Aplication" then
  1023. openApl
  1024. exit mouseDown
  1025. else if Sam is "Pixel Grid" then
  1026. piGrid
  1027. exit mouseDown
  1028. else if Sam is "ResCopy" then
  1029. ResCopy
  1030. exit mouseDown
  1031. else if Sam is "ResEdit" then
  1032. open "ResEdit 1.1B3"
  1033. exit mouseDown
  1034. else if Sam is "Script of Bkgnd..." then
  1035. bkgndScript
  1036. exit mouseDown
  1037. else if Sam is "Script of Button..." then
  1038. btnScript
  1039. exit mouseDown
  1040. else if Sam is "Script of Card..." then
  1041. cardScript
  1042. exit mouseDown
  1043. else if Sam is "Script of Field..." then
  1044. fieldScript
  1045. exit mouseDown
  1046. else if Sam is "Script of Stack..." then
  1047. stackScript
  1048. exit mouseDown
  1049. else if Sam is "Script of Home" then
  1050. HomeScript
  1051. exit mouseDown
  1052. else if Sam is "Scripts" then
  1053. answer "Sorry, This feature not yet supported"
  1054. exit mouseDown
  1055. else if Sam is "Show Heap Space" then
  1056. heapSpaceAvail
  1057. exit mouseDown
  1058. else if Sam is "Show Size of This Stack" then
  1059. SizeofStack
  1060. exit mouseDown
  1061. else if Sam is "SoundEditΓäó" then
  1062. open SoundEdit
  1063. exit mouseDown
  1064. else if Sam is "Stack Space Available" then
  1065. stackSpaceAvail
  1066. exit mouseDown
  1067. else if Sam is "Updated Last" then
  1068. updated
  1069. exit mouseDown
  1070. else if Sam is "Time & Date" then
  1071. timeDate
  1072. exit mouseDown
  1073. else unlock
  1074. if Sam is "About Stack Starter" then go to card "the stack starter"
  1075. else if Sam is "Allover Analyzer" then go to card "the allover analyzer"
  1076. else if Sam is "Animated Icons 1" then go to card "animated icons 1"
  1077. else if Sam is "Animated Icons 2" then go to card "animated icons 2"
  1078. else if Sam is "Animated Icons 3" then go to card "animated icons 3"
  1079. else if Sam is "Animated Icons 4" then go to card "animated icons 4"
  1080. else if Sam is "Animated Icons 5" then go to card "animated icons 5"
  1081. else if Sam is "Animated Icons 6" then go to card "animated icons 6"
  1082. else if Sam is "Author" then author
  1083. else if Sam is "Button Breeder" then go to card "the button breeder"
  1084. else if Sam is "Buttons" then go to card "the button breeder"
  1085. else if Sam is "Cover" then go to card "the stack starter"
  1086. else if Sam is "Controls" then go to card "the controls cultivator"
  1087. else if Sam is "Crash" then crash
  1088. else if Sam is "Credits" then credits
  1089. else if Sam is "Dedications" then dedications
  1090. else if Sam is "Don't Panic" then panic
  1091. else if Sam is "Effects" then go to card "the effects editor"
  1092. else if Sam is "Effects Editor" then go to card "the effects editor"
  1093. else if Sam is "Explanations" then go to card "the stack starter"
  1094. else if Sam is "Fields" then go to card "the field fabricator"
  1095. else if Sam is "Field Fabricator" then go to card "the field fabricator"
  1096. else if Sam is "Free-Roaming Icons" then go to card "Animated Icons 1"
  1097. else if Sam is "Gauges" then go to card "meters and gauges"
  1098. else if Sam is "Graphic Examples" then pause
  1099. else if Sam is "Graphic Techniques" then pause
  1100. else if Sam is "Helpful Hierarchy" then go to card "the helpful hierarchy"
  1101. else if Sam is "Hierarchy" then go to card "the helpful hierarchy"
  1102. else if Sam is "HyperSoundΓäó" then go to stack "HyperSound"
  1103. else if Sam is "Icon Iniatiator" then go to card "the icon iniatiator"
  1104. else if Sam is "Icons" then go to card "the icon iniatiator"
  1105. else if Sam is "Interactive Icons" then go to card "Animated Icons 1"
  1106. else if Sam is "Intro" then pause
  1107. else if Sam is "Keyboard Simulator" then go to card "Keyboard"
  1108. else if Sam is "Knobs" then go to card "knobs"
  1109. else if Sam is "Map" then go to card "the master map"
  1110. else if Sam is "Master Map" then go to card "the master map"
  1111. else if Sam is "Meters" then go to card "meters"
  1112. else if Sam is "Multi-Icon Buttons" then go to card "Multi-Icon Buttons"
  1113. else if Sam is "Open Aplication" then openApl
  1114. else if Sam is "Panic" then panic
  1115. else if Sam is "Pause" then pause
  1116. else if Sam is "Pushbuttons" then go to card "Pushbuttons Switches"
  1117. else if Sam is "Sliders" then go to card "sliders"
  1118. else if Sam is "Sounds" then go to card "the sound sampler"
  1119. else if Sam is "Speech" then go to card "the sound sampler"
  1120. else if Sam is "Switches" then go to card "Pushbuttons Switches"
  1121. else if Sam is "Tools" then go to card "the allover analyzer"
  1122. else if Sam is "Visual Effects" then go to card "the effects editor"
  1123. else if Sam is "XCMDs" then go to card "the master map"
  1124. else if Sam is "XFCNs" then go to card "the master map"
  1125. else
  1126. put "the " before Sam
  1127. go card Sam
  1128. if the result <> empty then answer "Sorry, this feature not yet supported."
  1129. end if
  1130. end if
  1131. end if
  1132. end if
  1133. end if
  1134. hide msg
  1135. end mouseDown
  1136.  
  1137. on indexAddName
  1138. global Fred
  1139. ask "What menu ITEM would you like to add?"┬¼
  1140. with "Please type ITEM NAME here."
  1141. if it is "Please type ITEM NAME here." then
  1142. else if it is empty then
  1143. else
  1144. set cursor to 4
  1145. lockcard
  1146. put it into addName
  1147. put first char of addName into Fred
  1148. if Fred is not in "ABCDEFGHIJKLMNOPQRSTUVWXYZ" then beep 2
  1149. else
  1150. put LowerToUpper(char 1 of addName) into char 1 of addName
  1151. put script of field Fred into field Fred
  1152. put addName into line (number of lines in field Fred)┬¼
  1153. + 1 of field Fred
  1154. put SortLines(field Fred, "A" ) into field Fred
  1155. put crunch(field Fred) into field Fred
  1156. set script of field Fred to field Fred
  1157. end  if
  1158. end  if
  1159. put empty into Fred
  1160. end indexAddName
  1161.  
  1162. on indexDeleteName
  1163. global Fred
  1164. ask "Please enter the EXACT ITEM NAME to delete."
  1165. if it is empty then
  1166. else
  1167. put it into deName
  1168. answer "Delete" && quote & deName & quote & "?"┬¼
  1169. with "Cancel" or "Yes"
  1170. if it is "Yes" then
  1171. set cursor to 4
  1172. lockcard
  1173. put first char of deName into Fred
  1174. if Fred is not in "ABCDEFGHIJKLMNOPQRSTUVWXYZ" then beep 2
  1175. else
  1176. put script of field Fred into field Fred
  1177. Repeat with i = 1 to (number of lines in field Fred + 1)
  1178. if line i of field Fred = dename then
  1179. delete line i of field Fred
  1180. exit repeat
  1181. end if
  1182. end repeat
  1183. --if i > (number of lines in field Fred) then
  1184. --beep 2
  1185. -- answer "You must type name exactly as it appears"
  1186. --else
  1187. put SortLines(field Fred, "A" ) into field Fred
  1188. put crunch(field Fred) into field Fred
  1189. set script of field Fred to field Fred
  1190. -- end if
  1191. end if
  1192. end if
  1193. end if
  1194. put empty into Fred
  1195. end indexDeleteName
  1196.  
  1197. on indexEditMode
  1198. global Fred
  1199. edit script of field Fred
  1200. set cursor to 4
  1201. lockcard
  1202. put script of field Fred into field Fred
  1203. Repeat with i = 1 to number of lines in field Fred
  1204. put LowerToUpper(char 1 of line i of field Fred)┬¼
  1205. into char 1 of line i of field Fred
  1206. end repeat
  1207. put SortLines(field Fred, "A" ) into field Fred
  1208. put crunch(field Fred) into field Fred
  1209. set script of field Fred to field Fred
  1210. end indexEditMode
  1211.  
  1212. on mouseUp
  1213. set lockMessages to true
  1214. end mouseUp
  1215. </script>
  1216.     </part>
  1217.     <part>
  1218.         <id>84</id>
  1219.         <type>button</type>
  1220.         <visible> <true /> </visible>
  1221.         <reserved5> 0 </reserved5>
  1222.         <reserved4> 0 </reserved4>
  1223.         <reserved3> 0 </reserved3>
  1224.         <reserved2> 0 </reserved2>
  1225.         <reserved1> 0 </reserved1>
  1226.         <enabled> <true /> </enabled>
  1227.         <rect>
  1228.             <left>12</left>
  1229.             <top>311</top>
  1230.             <right>59</right>
  1231.             <bottom>327</bottom>
  1232.         </rect>
  1233.         <style>shadow</style>
  1234.         <showName> <true /> </showName>
  1235.         <highlight> <false /> </highlight>
  1236.         <autoHighlight> <false /> </autoHighlight>
  1237.         <sharedHighlight> <true /> </sharedHighlight>
  1238.         <family>0</family>
  1239.         <titleWidth>0</titleWidth>
  1240.         <icon>0</icon>
  1241.         <textAlign>center</textAlign>
  1242.         <font>Geneva</font>
  1243.         <textSize>12</textSize>
  1244.         <textStyle>plain</textStyle>
  1245.         <name>Cover</name>
  1246.         <script>on mouseUp
  1247. set hilite of me to true
  1248. doMenu short name of me
  1249. set hilite of me to false
  1250. end mouseUp
  1251. </script>
  1252.     </part>
  1253.     <part>
  1254.         <id>85</id>
  1255.         <type>button</type>
  1256.         <visible> <true /> </visible>
  1257.         <reserved5> 0 </reserved5>
  1258.         <reserved4> 0 </reserved4>
  1259.         <reserved3> 0 </reserved3>
  1260.         <reserved2> 0 </reserved2>
  1261.         <reserved1> 0 </reserved1>
  1262.         <enabled> <true /> </enabled>
  1263.         <rect>
  1264.             <left>58</left>
  1265.             <top>311</top>
  1266.             <right>93</right>
  1267.             <bottom>327</bottom>
  1268.         </rect>
  1269.         <style>shadow</style>
  1270.         <showName> <true /> </showName>
  1271.         <highlight> <false /> </highlight>
  1272.         <autoHighlight> <false /> </autoHighlight>
  1273.         <sharedHighlight> <true /> </sharedHighlight>
  1274.         <family>0</family>
  1275.         <titleWidth>0</titleWidth>
  1276.         <icon>0</icon>
  1277.         <textAlign>center</textAlign>
  1278.         <font>Geneva</font>
  1279.         <textSize>12</textSize>
  1280.         <textStyle>plain</textStyle>
  1281.         <name>Map</name>
  1282.         <script>on mouseUp
  1283. set hilite of me to true
  1284. doMenu short name of me
  1285. set hilite of me to false
  1286. end mouseUp
  1287. </script>
  1288.     </part>
  1289.     <part>
  1290.         <id>86</id>
  1291.         <type>button</type>
  1292.         <visible> <true /> </visible>
  1293.         <reserved5> 0 </reserved5>
  1294.         <reserved4> 0 </reserved4>
  1295.         <reserved3> 0 </reserved3>
  1296.         <reserved2> 0 </reserved2>
  1297.         <reserved1> 0 </reserved1>
  1298.         <enabled> <true /> </enabled>
  1299.         <rect>
  1300.             <left>92</left>
  1301.             <top>311</top>
  1302.             <right>151</right>
  1303.             <bottom>327</bottom>
  1304.         </rect>
  1305.         <style>shadow</style>
  1306.         <showName> <true /> </showName>
  1307.         <highlight> <false /> </highlight>
  1308.         <autoHighlight> <false /> </autoHighlight>
  1309.         <sharedHighlight> <true /> </sharedHighlight>
  1310.         <family>0</family>
  1311.         <titleWidth>0</titleWidth>
  1312.         <icon>0</icon>
  1313.         <textAlign>center</textAlign>
  1314.         <font>Geneva</font>
  1315.         <textSize>12</textSize>
  1316.         <textStyle>plain</textStyle>
  1317.         <name>Buttons</name>
  1318.         <script>on mouseUp
  1319. set hilite of me to true
  1320. doMenu short name of me
  1321. set hilite of me to false
  1322. end mouseUp
  1323. </script>
  1324.     </part>
  1325.     <part>
  1326.         <id>87</id>
  1327.         <type>button</type>
  1328.         <visible> <true /> </visible>
  1329.         <reserved5> 0 </reserved5>
  1330.         <reserved4> 0 </reserved4>
  1331.         <reserved3> 0 </reserved3>
  1332.         <reserved2> 0 </reserved2>
  1333.         <reserved1> 0 </reserved1>
  1334.         <enabled> <true /> </enabled>
  1335.         <rect>
  1336.             <left>150</left>
  1337.             <top>311</top>
  1338.             <right>211</right>
  1339.             <bottom>327</bottom>
  1340.         </rect>
  1341.         <style>shadow</style>
  1342.         <showName> <true /> </showName>
  1343.         <highlight> <false /> </highlight>
  1344.         <autoHighlight> <false /> </autoHighlight>
  1345.         <sharedHighlight> <true /> </sharedHighlight>
  1346.         <family>0</family>
  1347.         <titleWidth>0</titleWidth>
  1348.         <icon>0</icon>
  1349.         <textAlign>center</textAlign>
  1350.         <font>Geneva</font>
  1351.         <textSize>12</textSize>
  1352.         <textStyle>plain</textStyle>
  1353.         <name>Controls</name>
  1354.         <script>on mouseUp
  1355. set hilite of me to true
  1356. doMenu short name of me
  1357. set hilite of me to false
  1358. end mouseUp
  1359. </script>
  1360.     </part>
  1361.     <part>
  1362.         <id>88</id>
  1363.         <type>button</type>
  1364.         <visible> <true /> </visible>
  1365.         <reserved5> 0 </reserved5>
  1366.         <reserved4> 0 </reserved4>
  1367.         <reserved3> 0 </reserved3>
  1368.         <reserved2> 0 </reserved2>
  1369.         <reserved1> 0 </reserved1>
  1370.         <enabled> <true /> </enabled>
  1371.         <rect>
  1372.             <left>264</left>
  1373.             <top>311</top>
  1374.             <right>310</right>
  1375.             <bottom>327</bottom>
  1376.         </rect>
  1377.         <style>shadow</style>
  1378.         <showName> <true /> </showName>
  1379.         <highlight> <false /> </highlight>
  1380.         <autoHighlight> <false /> </autoHighlight>
  1381.         <sharedHighlight> <true /> </sharedHighlight>
  1382.         <family>0</family>
  1383.         <titleWidth>0</titleWidth>
  1384.         <icon>0</icon>
  1385.         <textAlign>center</textAlign>
  1386.         <font>Geneva</font>
  1387.         <textSize>12</textSize>
  1388.         <textStyle>plain</textStyle>
  1389.         <name>Fields</name>
  1390.         <script>on mouseUp
  1391. set hilite of me to true
  1392. doMenu short name of me
  1393. set hilite of me to false
  1394. end mouseUp
  1395. </script>
  1396.     </part>
  1397.     <part>
  1398.         <id>89</id>
  1399.         <type>button</type>
  1400.         <visible> <true /> </visible>
  1401.         <reserved5> 0 </reserved5>
  1402.         <reserved4> 0 </reserved4>
  1403.         <reserved3> 0 </reserved3>
  1404.         <reserved2> 0 </reserved2>
  1405.         <reserved1> 0 </reserved1>
  1406.         <enabled> <true /> </enabled>
  1407.         <rect>
  1408.             <left>309</left>
  1409.             <top>311</top>
  1410.             <right>352</right>
  1411.             <bottom>327</bottom>
  1412.         </rect>
  1413.         <style>shadow</style>
  1414.         <showName> <true /> </showName>
  1415.         <highlight> <false /> </highlight>
  1416.         <autoHighlight> <false /> </autoHighlight>
  1417.         <sharedHighlight> <true /> </sharedHighlight>
  1418.         <family>0</family>
  1419.         <titleWidth>0</titleWidth>
  1420.         <icon>0</icon>
  1421.         <textAlign>center</textAlign>
  1422.         <font>Geneva</font>
  1423.         <textSize>12</textSize>
  1424.         <textStyle>plain</textStyle>
  1425.         <name>Icons</name>
  1426.         <script>on mouseUp
  1427. set hilite of me to true
  1428. doMenu short name of me
  1429. set hilite of me to false
  1430. end mouseUp
  1431. </script>
  1432.     </part>
  1433.     <part>
  1434.         <id>90</id>
  1435.         <type>button</type>
  1436.         <visible> <true /> </visible>
  1437.         <reserved5> 0 </reserved5>
  1438.         <reserved4> 0 </reserved4>
  1439.         <reserved3> 0 </reserved3>
  1440.         <reserved2> 0 </reserved2>
  1441.         <reserved1> 0 </reserved1>
  1442.         <enabled> <true /> </enabled>
  1443.         <rect>
  1444.             <left>351</left>
  1445.             <top>311</top>
  1446.             <right>404</right>
  1447.             <bottom>327</bottom>
  1448.         </rect>
  1449.         <style>shadow</style>
  1450.         <showName> <true /> </showName>
  1451.         <highlight> <false /> </highlight>
  1452.         <autoHighlight> <false /> </autoHighlight>
  1453.         <sharedHighlight> <true /> </sharedHighlight>
  1454.         <family>0</family>
  1455.         <titleWidth>0</titleWidth>
  1456.         <icon>0</icon>
  1457.         <textAlign>center</textAlign>
  1458.         <font>Geneva</font>
  1459.         <textSize>12</textSize>
  1460.         <textStyle>plain</textStyle>
  1461.         <name>Scripts</name>
  1462.         <script>on mouseUp
  1463. set hilite of me to true
  1464. doMenu short name of me
  1465. set hilite of me to false
  1466. end mouseUp
  1467. </script>
  1468.     </part>
  1469.     <part>
  1470.         <id>91</id>
  1471.         <type>button</type>
  1472.         <visible> <true /> </visible>
  1473.         <reserved5> 0 </reserved5>
  1474.         <reserved4> 0 </reserved4>
  1475.         <reserved3> 0 </reserved3>
  1476.         <reserved2> 0 </reserved2>
  1477.         <reserved1> 0 </reserved1>
  1478.         <enabled> <true /> </enabled>
  1479.         <rect>
  1480.             <left>403</left>
  1481.             <top>311</top>
  1482.             <right>455</right>
  1483.             <bottom>327</bottom>
  1484.         </rect>
  1485.         <style>shadow</style>
  1486.         <showName> <true /> </showName>
  1487.         <highlight> <false /> </highlight>
  1488.         <autoHighlight> <false /> </autoHighlight>
  1489.         <sharedHighlight> <true /> </sharedHighlight>
  1490.         <family>0</family>
  1491.         <titleWidth>0</titleWidth>
  1492.         <icon>0</icon>
  1493.         <textAlign>center</textAlign>
  1494.         <font>Geneva</font>
  1495.         <textSize>12</textSize>
  1496.         <textStyle>plain</textStyle>
  1497.         <name>Sounds</name>
  1498.         <script>on mouseUp
  1499. set hilite of me to true
  1500. doMenu short name of me
  1501. set hilite of me to false
  1502. end mouseUp
  1503. </script>
  1504.     </part>
  1505.     <part>
  1506.         <id>92</id>
  1507.         <type>button</type>
  1508.         <visible> <true /> </visible>
  1509.         <reserved5> 0 </reserved5>
  1510.         <reserved4> 0 </reserved4>
  1511.         <reserved3> 0 </reserved3>
  1512.         <reserved2> 0 </reserved2>
  1513.         <reserved1> 0 </reserved1>
  1514.         <enabled> <true /> </enabled>
  1515.         <rect>
  1516.             <left>454</left>
  1517.             <top>311</top>
  1518.             <right>494</right>
  1519.             <bottom>327</bottom>
  1520.         </rect>
  1521.         <style>transparent</style>
  1522.         <showName> <true /> </showName>
  1523.         <highlight> <false /> </highlight>
  1524.         <autoHighlight> <false /> </autoHighlight>
  1525.         <sharedHighlight> <true /> </sharedHighlight>
  1526.         <family>0</family>
  1527.         <titleWidth>0</titleWidth>
  1528.         <icon>0</icon>
  1529.         <textAlign>center</textAlign>
  1530.         <font>Geneva</font>
  1531.         <textSize>12</textSize>
  1532.         <textStyle>plain</textStyle>
  1533.         <name>Tools</name>
  1534.         <script>on mouseUp
  1535. set hilite of me to true
  1536. doMenu short name of me
  1537. set hilite of me to false
  1538. end mouseUp
  1539. </script>
  1540.     </part>
  1541.     <part>
  1542.         <id>93</id>
  1543.         <type>button</type>
  1544.         <visible> <true /> </visible>
  1545.         <reserved5> 0 </reserved5>
  1546.         <reserved4> 0 </reserved4>
  1547.         <reserved3> 0 </reserved3>
  1548.         <reserved2> 0 </reserved2>
  1549.         <reserved1> 0 </reserved1>
  1550.         <enabled> <true /> </enabled>
  1551.         <rect>
  1552.             <left>26</left>
  1553.             <top>174</top>
  1554.             <right>65</right>
  1555.             <bottom>224</bottom>
  1556.         </rect>
  1557.         <style>shadow</style>
  1558.         <showName> <true /> </showName>
  1559.         <highlight> <false /> </highlight>
  1560.         <autoHighlight> <true /> </autoHighlight>
  1561.         <sharedHighlight> <true /> </sharedHighlight>
  1562.         <family>0</family>
  1563.         <titleWidth>0</titleWidth>
  1564.         <icon>29399</icon>
  1565.         <textAlign>center</textAlign>
  1566.         <font>Geneva</font>
  1567.         <textSize>12</textSize>
  1568.         <textStyle>plain</textStyle>
  1569.         <name>MorEFX</name>
  1570.         <script>on mouseDown
  1571. put the rect of the target into holder
  1572. put item 1 of holder into horiz
  1573. put item 2 of holder into vert
  1574. get PopUpMenu(" Moire ; Modrian ; Stripes ",3, vert, horiz)
  1575. hideall
  1576. if it is empty then
  1577. else if it is 1 then
  1578. answer "Sorry, That feature is not yet supported."
  1579. else if it is 2 then
  1580. reset paint
  1581. choose bucket tool
  1582. set pattern to 1
  1583. click at 0,0
  1584. choose select tool
  1585. set dragSpeed to 1000
  1586. repeat forever
  1587. drag from random(256),random(171) to ┬¼
  1588. (random(256) + 255),(random(171) + 170)
  1589. if the mouse is down then
  1590. cleanUp
  1591. exit mouseDown
  1592. end if
  1593. doMenu "Invert"
  1594. choose select tool
  1595. end repeat
  1596. else if it is 3 then
  1597. choose brush tool
  1598. set brush to 1
  1599. repeat with i = 40 down to 1
  1600. set pattern to i
  1601. drag from 0,9 * (i-1) to 512 ,9 * (i-1)
  1602. drag from 13 * (i-1), 10 to 13 * (i-1), 400
  1603. if the mouse is down then
  1604. cleanUp
  1605. exit mouseDown
  1606. end if
  1607. end repeat
  1608. choose browse tool
  1609. else
  1610. cleanUp
  1611. end if
  1612. wait until the mouseClick
  1613. cleanUp
  1614. end mouseDown
  1615.  
  1616. on cleanUp
  1617. choose select tool
  1618. doMenu "Select All"
  1619. doMenu "Clear Picture"
  1620. choose browse tool
  1621. show menubar
  1622. end cleanUp
  1623. </script>
  1624.     </part>
  1625.     <part>
  1626.         <id>94</id>
  1627.         <type>button</type>
  1628.         <visible> <true /> </visible>
  1629.         <reserved5> 0 </reserved5>
  1630.         <reserved4> 0 </reserved4>
  1631.         <reserved3> 0 </reserved3>
  1632.         <reserved2> 0 </reserved2>
  1633.         <reserved1> 0 </reserved1>
  1634.         <enabled> <true /> </enabled>
  1635.         <rect>
  1636.             <left>15</left>
  1637.             <top>62</top>
  1638.             <right>221</right>
  1639.             <bottom>75</bottom>
  1640.         </rect>
  1641.         <style>rectangle</style>
  1642.         <showName> <true /> </showName>
  1643.         <highlight> <true /> </highlight>
  1644.         <autoHighlight> <false /> </autoHighlight>
  1645.         <sharedHighlight> <true /> </sharedHighlight>
  1646.         <family>0</family>
  1647.         <titleWidth>0</titleWidth>
  1648.         <icon>0</icon>
  1649.         <textAlign>center</textAlign>
  1650.         <font>Geneva</font>
  1651.         <textSize>9</textSize>
  1652.         <textStyle>bold</textStyle>
  1653.         <name>Volume | Fonts | Style | Size | Height</name>
  1654.         <script>on mouseDown
  1655. global ActiveField
  1656. set hilite of me to true
  1657. put "field id 13" into jim
  1658. put the rect of the target into holder
  1659. put (item 1 of the clickloc) - (item 1 of the rect of me) into A
  1660. put (item 3 of the rect of me)-(item 1 of the rect of me) into B
  1661. put trunc(A/(B/5))into joe
  1662. if Joe is empty then
  1663. else
  1664. put (item 1 of the clickloc-6) into horiz
  1665. put (item 2 of holder)+13 into vert
  1666. if joe is "0" then
  1667. get PopUpMenu(" 0 ; 1 ; 2 ; 3 ; 4 ; 5 ; 6 ; 7 ", 0, vert, horiz)
  1668. if it is "0" then
  1669. else
  1670. put word it of " 0  1  2  3  4  5  6  7" into sam
  1671. SetVolume(sam)
  1672. play harpsichord "c ew"
  1673. end if
  1674. else if Joe is "1" then
  1675. if script of field "fontField" is empty then
  1676. answer "Oops, no FONTS in this system." with "Sorry"
  1677. exit mouseDown
  1678. else
  1679. get PopUpMenu(script of field "fontField",0, vert, horiz)
  1680. if it is "0" then
  1681. else
  1682. put (line it of script of field "fontField") into Sam
  1683. if ActiveField <> empty then
  1684. set textFont of ActiveField to sam
  1685. else set textFont to sam
  1686. end if
  1687. end if
  1688. else if Joe is "2" then
  1689. get PopUpMenu(" Plain ; Bold ; Italic ; Underline ; Outline ; Shadow ; Condense ; Extend ;(----------) ; Left ; Center ; Right ", 0, vert, horiz)
  1690. if it is "0" then
  1691. else
  1692. put word it of " Plain Bold Italic Underline Outline Shadow Condense Extend -- Left Center Right" into sam
  1693. if ActiveField <> empty then
  1694. if sam is "Plain" then set textStyle of ActiveField to plain
  1695. else if sam is "Left" then set textAlign of ActiveField to left
  1696. else if sam is "Center" then set textAlign of ActiveField to center
  1697. else if sam is "Right" then set textAlign of ActiveField to right
  1698. else if textStyle of ActiveField is "Plain" then set textStyle of ActiveField to sam
  1699. else
  1700. put "set textStyle of" && ActiveField && "to" && ((textStyle of ActiveField) & "," && sam) into temp
  1701. do (temp)
  1702. end if
  1703. else
  1704. if sam is "Plain" then set textStyle to sam
  1705. else if sam is "Left" then set textAlign to left
  1706. else if sam is "Center" then set textAlign to center
  1707. else if sam is "Right" then set textAlign to right
  1708. else if the textStyle is "Plain" then set textStyle to sam
  1709. else
  1710. put "set textStyle" && "to" && ((the textStyle) & "," && sam) into temp
  1711. do (temp)
  1712. end if
  1713. end if
  1714. end if
  1715. else if Joe is "3" then
  1716. get PopUpMenu(" 6 ; 8 ; 9 ; 10 ; 12 ; 14 ; 18 ; 24 ; 36 ; 48 ; 52 ; 72 ", 0, vert, horiz)
  1717. if it is "0" then
  1718. else
  1719. put word it of " 6 8 9 10 12 14 18 24 36 48 52 72 " into sam
  1720. if ActiveField <> empty then
  1721. set textSize of ActiveField to sam
  1722. else set textSize to sam
  1723. end if
  1724. else if Joe is "4" then
  1725. get PopUpMenu(" +1 ; -1 ; +3 ; -3 ; +5 ; -5 ; +10 ; -10 ", 0, vert, horiz)
  1726. if it is "0" then
  1727. else
  1728. put word it of " +1  -1  +3  -3  +5  -5  +10  -10 " into sam
  1729. if ActiveField <> empty then
  1730. put "set textHeight of" && ActiveField && "to (" &┬¼
  1731. (textHeight of ActiveField) & (sam) & ")" into temp
  1732. do (temp)
  1733. end if
  1734. end if
  1735. end if
  1736. end if
  1737. end mouseDown
  1738.  
  1739. on mouseUp
  1740.  
  1741. end mouseUp
  1742. </script>
  1743.     </part>
  1744.     <part>
  1745.         <id>95</id>
  1746.         <type>button</type>
  1747.         <visible> <true /> </visible>
  1748.         <reserved5> 0 </reserved5>
  1749.         <reserved4> 0 </reserved4>
  1750.         <reserved3> 0 </reserved3>
  1751.         <reserved2> 0 </reserved2>
  1752.         <reserved1> 0 </reserved1>
  1753.         <enabled> <true /> </enabled>
  1754.         <rect>
  1755.             <left>15</left>
  1756.             <top>39</top>
  1757.             <right>118</right>
  1758.             <bottom>52</bottom>
  1759.         </rect>
  1760.         <style>rectangle</style>
  1761.         <showName> <true /> </showName>
  1762.         <highlight> <true /> </highlight>
  1763.         <autoHighlight> <false /> </autoHighlight>
  1764.         <sharedHighlight> <true /> </sharedHighlight>
  1765.         <family>0</family>
  1766.         <titleWidth>0</titleWidth>
  1767.         <icon>0</icon>
  1768.         <textAlign>center</textAlign>
  1769.         <font>Geneva</font>
  1770.         <textSize>9</textSize>
  1771.         <textStyle>bold</textStyle>
  1772.         <name>Set UserLevel To:</name>
  1773.         <script>on mouseDown
  1774. set hilite of me to true
  1775. put the loc of me into holder
  1776. put (item 1 of holder-52) into horiz
  1777. put (item 2 of holder)+8 into vert
  1778. get PopUpMenu("1   Browsing ;2   Typing ;3   Painting ;4  Authoring ;5   Scripting ", 0, vert, horiz)
  1779. if it is "0" then set userlevel to 1
  1780. else if it is "1" then set userlevel to 2
  1781. else if it is "2" then set userlevel to 3
  1782. else if it is "3" then set userlevel to 4
  1783. else if it is "4" then set userlevel to 5
  1784. else exit mouseDown
  1785. end mouseDown
  1786.  
  1787. on mouseUp
  1788.  
  1789. end mouseUp
  1790. </script>
  1791.     </part>
  1792.     <name>Effects Editor</name>
  1793.     <script>on openCard
  1794. put the short name of this card into bkgnd field "Title"
  1795. put "Prev Card:" && short name of prev card into field id 78
  1796. put "Next Card:" && short name of next card into field id 79
  1797. pass openCard
  1798. end openCard
  1799.  
  1800. on mouseEnter
  1801. global TargetEnter, NewBtn, NewBtnid, NewBtnN
  1802. if TargetEnter <> empty then
  1803. wait 60
  1804. put the short name of the target into NewBtn
  1805. put the target into NewBtnN
  1806. put the id of the target into NewBtnid
  1807. put "Change font of " & NewBtnN
  1808. if word 2 of NewBtnN <> "Button" then exit mouseEnter
  1809. if word 2 of NewBtn is "Button" then
  1810. ask "This Button needs a name." with "Please, type name here."
  1811. if it is empty then exit mouseEnter
  1812. set name of NewBtnN to it
  1813. put it into NewBtn
  1814. end if
  1815. answer "Change font of " & NewBtnN with "Cancel" or "OK"
  1816. if it is "Cancel" then exit mouseEnter
  1817. put empty into TargetEnter
  1818. hide msg
  1819. iconCheck
  1820. end if
  1821. end mouseEnter
  1822. </script>
  1823. </background>
  1824.